home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u288.dms / in.adf / Include / WorkBench / Startup.i < prev    next >
Encoding:
Text File  |  1990-08-27  |  753 b   |  30 lines
  1. {
  2.     Startup.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/Ports.i"}
  6. {$I "Include:Libraries/DOS.i"}
  7.  
  8. Type
  9.  
  10.     WBArg = record
  11.     wa_Lock        : BPTR;        { a lock descriptor }
  12.     wa_Name        : String;    { a string relative to that lock }
  13.     end;
  14.     WBArgPtr = ^WBArg;
  15.  
  16.     WBArgList = Array [1..100] of WBArg; { Only 1..smNumArgs are valid }
  17.     WBArgListPtr = ^WBArgList;
  18.  
  19.     WBStartup = record
  20.     sm_Message    : Message;    { a standard message structure }
  21.     sm_Process    : MsgPortPtr;    { the process descriptor for you }
  22.     sm_Segment    : BPTR;        { a descriptor for your code }
  23.     sm_NumArgs    : Integer;    { the number of elements in ArgList }
  24.     sm_ToolWindow    : String;    { description of window }
  25.     sm_ArgList    : WBArgListPtr;    { the arguments themselves }
  26.     end;
  27.     WBStartupPtr = ^WBStartup;
  28.  
  29.  
  30.